home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 40 / Amiga Format CD40 (1999-05-11)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-06].iso / -readerstuff- / steve_turner / canal / routes / hd_install < prev    next >
Text File  |  1999-03-29  |  2KB  |  102 lines
  1.  
  2. ;CANAL CALUCLATOR INSTALL SCRIPT
  3. ;Copyright STEVE TURNER 1995
  4. ;VER$="V2.0"
  5.  
  6. (complete 0)
  7.  
  8. (if (= @user-level 0)
  9.         (       (set def "SYS:canaldisk")
  10.                 (makedir def
  11.                         (prompt "\nCreating draw \"SYS:CanalDisk\".")
  12.                         (help "To keep things neat, we will make a new draw for the \"Canal Calculator\".")
  13.                         (infos)
  14.                 )
  15.         )
  16.         (set def "SYS:")
  17. )
  18.  
  19. (complete 28)
  20.  
  21. (set location
  22.         (askdir
  23.                 (prompt "\nPlease give me a directory to install \"Canal Calculator\"\n No Draw will be created")
  24.                 (help @askdir-help)
  25.                 (default def)
  26.                 (disk)
  27.         )
  28. )
  29.  
  30. (complete 29)
  31.  
  32. (set location (expandpath location))
  33.  
  34. (complete 30)
  35.  
  36. (set @default-dest location)
  37.  
  38. (complete 31)
  39.  
  40. (onerror
  41.         (message "An Error has Occured.\n"
  42.                  "For some reason I am unable to copy a file.\n"
  43.                  "Clean Up part copied files before retry."
  44.         )
  45. )
  46.  
  47. (copyfiles
  48.         (prompt ("\nCopying files to %s" location))
  49.         (help @copyfiles-help)
  50.     (source "")
  51.         (dest location)
  52.         (all)
  53.         (infos)
  54. )
  55.  
  56. (complete 85)
  57.  
  58. (set icon1 (cat location "/Read Me"))
  59.  
  60. (complete 86)
  61.  
  62. (set icon2 (cat location "/Canal.Doc"))
  63.  
  64. (complete 87)
  65.  
  66. (set icon3 (cat location "/Canal.Guide"))
  67.  
  68. (complete 88)
  69.  
  70. (tooltype
  71.         (prompt ("\nSetting default text reader for \"%s\" to \"C:PPMore\"." icon1))
  72.         (help "This will set the tool used to read the text files so that it looksfor them in your \"C\" directory.")
  73.         (dest icon1)
  74.         (setdefaulttool "C:PPMore")
  75. )
  76.  
  77. (complete 90)
  78.  
  79. (tooltype
  80.         (prompt ("\nSetting default text reader for \"%s\" to \"C:PPMore\"." icon2))
  81.         (help "This will set the tool used to read the text files so that it looksfor them in your \"C\" directory.")
  82.         (dest icon2)
  83.         (setdefaulttool "C:PPMore")
  84. )
  85.  
  86. (complete 92)
  87.  
  88. (tooltype
  89.         (prompt ("\nSetting default guide reader for \"%s\" to \"C:PPGuide\"." icon3))
  90.         (help "This will set the tool used to read the text files so that it looksfor them in your \"C\" directory.")
  91.         (dest icon3)
  92.         (setdefaulttool "C:PPGuide")
  93. )
  94.  
  95. (complete 97)
  96.  
  97. (set com (cat "assign CANAL: " location))
  98.  
  99. (complete 100)
  100.  
  101. (exit "Canal Calculator is ready to use but read the Doc files first")
  102.